Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/EDITORS/AMIMACRO.ZIP;1/SMARTYPE.SMM

INI File | 1993-02-23 | 13.3 KB | 1,008 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    FILE:
[lang]
    1
[desc]
    Typeset characters throughout document
    Lotus WPD Marketing
    Intermediate
    Replace, Type, CurChar$
    noautorun
    730444621
    31
    672426590
    353
    5
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[l1]
    0
[pg]
    5
    56 0 9 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    115 0 12 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    164 0 28 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    218 0 16 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    224 0 0 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#216,10800>Macro by <+!>Charlie Pappas<-!>

<:#216,10800>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

<:#216,10800>

@Function@<:#216,10800>function typeset()

<:#216,10800>result=IsOKToRun(FindReplace)

<:#216,10800>if result != 1

<:#216,10800>    exit function

<:#216,10800>endif

<:#216,10800>oncancel endit

<:#216,10800>onerror endit

<:#216,10800>dim ab(25)

<:#216,10800>ab(1)="Mr"

<:#216,10800>ab(2)="Mrs"

<:#216,10800>ab(3)="Ms"

<:#216,10800>ab(4)="Dr"

<:#216,10800>ab(5)="al"

<:#216,10800>ab(6)="etc"

<:#216,10800>ab(7)="pp"

<:#216,10800>ab(8)="St"

<:#216,10800>ab(9)="Ave"

<:#216,10800>ab(10)="vs"

<:#216,10800>ab(11)="vol"

<:#216,10800>ab(12)="Eds"

<:#216,10800>ab(13)="Ed"

<:#216,10800>ab(14)="No"

<:#216,10800>ab(15)="Pl"

<:#216,10800>ab(16)="Rd"

<:#216,10800>ab(17)="Rt"

<:#216,10800>ab(18)="Terr"

<:#216,10800>ab(19)="Blvd"

<:#216,10800>ab(20)="Drs"

<:#216,10800>ab(21)="cf"

<:#216,10800>ab(22)="viz"

<:#216,10800>ab(23)="Rev"

<:#216,10800>ab(24)="ed"

<:#216,10800>ab(25)="viz"

<:#216,10800>darkmode(0)

<:#216,10800>type("<[>ctrlhome]")

<:#216,10800>dblsp=decide("Do you want to double-space after sentences?","")

<:#216,10800>If dblsp=0

<:#216,10800>    goto dashes

<:#216,10800>Endif

@Function@<:#216,10800>DoubleSpaces:

<:#216,10800>StatusBarMsg("Double spacing after sentences...")

<:#216,10800>While (1)

<:#216,10800>    go = replace(0,0,1,".","")

<:#216,10800>    if go <<<;>1

<:#216,10800>        break

<:#216,10800>    endif

<:#216,10800>    type("<[>esc]")

<:#216,10800>    sp=curchar$()

<:#216,10800>    If sp=""

<:#216,10800>        goto skip2end

<:#216,10800>    endif

<:#216,10800>    sp=asc(sp)

<:#216,10800>    if sp=44

<:#216,10800>        type("<[>shiftctrlright], ")

<:#216,10800>        goto skip2end

<:#216,10800>    endif

<:#216,10800>    if sp<<<;>32

<:#216,10800>        type("<[>left]<[>left]<[>ShiftRight]<[>ShiftRight]<[>ShiftRight]<[>ShiftRight]")

<:#216,10800>        egie=curshade$()

<:#216,10800>        if egie="e.g." or egie="i.e." or egie="a.m." or egie="p.m."

<:#216,10800>            type("<[>right]")

<:#216,10800>            goto skip2end

<:#216,10800>        endif

<:#216,10800>        darkmode(0)

<:#432,10800>        UserControl("There is no space following this period.  Make your corrections and click 'RESUME'.")

<:#216,10800>        goto skip2end

<:#216,10800>    endif

<:#216,10800>    type("<[>Right]")

<:#216,10800>    let1=curchar$()

<:#216,10800>    If let1=""

<:#216,10800>        type("<[>backspace]")

<:#216,10800>        goto skip2end

<:#216,10800>    endif

<:#216,10800>    dblsp=asc(let1)

<:#216,10800>    If dblsp=32

<:#216,10800>        dblsp=1

<:#216,10800>    else dblsp=0

<:#216,10800>    endif

<:#216,10800>    if dblsp=0

<:#216,10800>        let=asc(let1)

<:#216,10800>        If let<<91

<:#216,10800>            cap=1

<:#216,10800>        else cap=0

<:#216,10800>        endif

<:#216,10800>    endif

<:#216,10800>    if dblsp=1

<:#216,10800>        type("<[>right]")

<:#216,10800>        let2=curchar$()

<:#216,10800>        If let2=""

<:#216,10800>            type("<[>backspace]<[>backspace]")

<:#216,10800>            goto skip2end

<:#216,10800>        endif

<:#216,10800>        let=asc(let2)

<:#216,10800>        If let<<91

<:#216,10800>            cap=1

<:#216,10800>        else cap=0

<:#216,10800>        endif

<:#216,10800>    endif

<:#216,10800>    type("<[>CTRLLeft]")

<:#216,10800>    para=curchar$()

<:#216,10800>    t=asc(para)

<:#216,10800>    If t=41 or t=93 or t=34

<:#216,10800>        l=2

<:#216,10800>        type("<[>right]<[>right]")

<:#216,10800>        goto skip1

<:#216,10800>    else type("<[>CTRLSHIFTLeft]")

<:#216,10800>    endif

<:#216,10800>    wbper=curshade$()

<:#216,10800>    type("<[>Esc]<[>CTRLRight]<[>right]")

<:#216,10800>    l=len(wbper)

<:#216,10800>    if l = 1

<:#216,10800>        goto skip0

<:#216,10800>    endif

<:#216,10800>    for i = 1 to 25

<:#216,10800>        if wbper=ab(i)

<:#216,10800>            l=1

<:#216,10800>            break

<:#216,10800>        endif

<:#216,10800>        l=2

<:#216,10800>    next

@Function@<:#216,10800>    Skip0:

<:#216,10800>    If l=1 and dblsp=0

<:#216,10800>        goto skip2end

<:#216,10800>    elseif l=1 and dblsp=1

<:#216,10800>        type("<[>Del]")

<:#216,10800>        goto skip2end

<:#216,10800>    endif

@Function@<:#216,10800>    skip1:

<:#216,10800>    If l=2 and dblsp=1 and cap =1

<:#216,10800>        goto skip2end

<:#216,10800>    elseif l=2 and dblsp=1 and cap =0

<:#216,10800>        darkmode(0)

<:#432,10800>        x=decide("There are two spaces after this period, but the next word is not capitalized.  Do you want to capitalize the next word?")

<:#216,10800>        If x=1

<:#216,10800>            newlet=ucase$(let2)

<:#216,10800>            type("<[>CTRLRight]<[>Del]{newlet}")

<:#216,10800>            goto skip2end

<:#216,10800>        endif

<:#432,10800>        x=decide("There are two spaces after this period, but the next word is not capitalized.  Do you want to delete one of the spaces?")

<:#216,10800>        if x=1

<:#216,10800>            type("<[>Del]")

<:#216,10800>        endif

<:#216,10800>        goto skip2end

<:#216,10800>    elseif l=2 and dblsp=0 and cap =1

<:#216,10800>        type(" ")

<:#216,10800>        goto skip2end

<:#216,10800>    elseif l=2 and dblsp=0 and cap =0

<:#216,10800>        darkmode(0)

<:#432,10800>        x=decide("There is only one space after this period, but the next word is not capitalized.  Do you want to capitalize the next word?")

<:#216,10800>        If x=1

<:#216,10800>            newlet=ucase$(let1)

<:#216,10800>            type("<[>CTRLRight]<[>Del]{newlet}")

<:#216,10800>        endif

<:#216,10800>        goto skip2end

<:#216,10800>    Endif

@Function@<:#216,10800>    Skip2end:

<:#216,10800>    darkmode(0)

<:#216,10800>Wend

@Function@<:#216,10800>Dashes:

<:#216,10800>StatusBarMsg("Converting em dashes...")

<:#216,10800>replace("" "" 1024 "--" "</W>")

<:#216,10800>type("<[>ctrlhome]")

@Function@<:#216,10800>SingleQuotes:

<:#216,10800>StatusBarMsg("Converting single quotes...")

<:#216,10800>while (1)

<:#216,10800>    go = replace("" "" "" "'" "")

<:#216,10800>    if go <<<;> 1

<:#216,10800>        break

<:#216,10800>    endif

<:#216,10800>    type("<[>esc]")

<:#216,10800>    if CurChar$() = "'"

<:#216,10800>        type("<[>left]<[>shiftright]<[>shiftright]</T>")

<:#216,10800>    else

<:#216,10800>        if not "" = GetTextBeforeCursor$()

<:#216,10800>            type("<[>left]<[>left]")

<:#216,10800>        endif

<:#216,10800>        if curchar$() = " " or curchar$() = ""

<:#216,10800>            if curchar$() <<<;> ""

<:#216,10800>                type("<[>right]")

<:#216,10800>            endif

<:#216,10800>            type("<[>shiftright]")

<:#216,10800>            type("</Q>")

<:#216,10800>        else

<:#216,10800>            type("<[>right]<[>shiftright]")

<:#216,10800>            type("</R>")

<:#216,10800>        endif

<:#216,10800>    endif

<:#216,10800>wend

<:#216,10800>type("<[>ctrlhome]")

@Function@<:#216,10800>DoubleQuotes:

<:#216,10800>StatusBarMsg("Converting double quotes...")

<:#216,10800>goto jump

<:#216,10800>while (1)

<:#216,10800>    go = replace("" "" "" """" "")

<:#216,10800>    if go <<<;> 1

<:#216,10800>        break

<:#216,10800>    endif

<:#216,10800>    type("<[>esc]")

<:#216,10800>    if curchar$() = " "

<:#216,10800>        type("<[>shiftleft]</T>")

<:#216,10800>    else

<:#216,10800>        type("<[>shiftleft]</S>")

<:#216,10800>    endif

<:#216,10800>wend

@Function@<:#216,10800>jump:

<:#216,10800>while (1)

<:#216,10800>    go = Replace("" "" "" """" "") ' open dquote

<:#216,10800>    if go <<<;> 1

<:#216,10800>        break

<:#216,10800>    endif

<:#216,10800>    type("</S>")

<:#216,10800>    Replace("" "" "" """" "")

<:#216,10800>    type("</T>")

<:#216,10800>wend

<:#216,10800>StatusBarMsg("")

<:#432,10800>message("All Quotes, dashes and apostrophes within file have been converted to typographical equivalent.")

@Function@<:#216,10800>endit:

<:#216,10800>StatusBarMsg("")

<:#216,10800>darkmode(0)

<:#216,10800>end function

<:#216,10800>

>

[Embedded]
00008870
>
[macsum] 1
typeset 0 0 18 3
[macse]
14 typeset
0 1313 217 24 451
13
8 1
6 1
5 1
18 1
11 00000081
6 0
15
9
19 00004633
20 00004633
5 25
21 2 [X]
5 1
7 "Mr"
23 2
5 2
7 "Mrs"
23 2
5 3
7 "Ms"
23 2
5 4
7 "Dr"
23 2
5 5
7 "al"
23 2
5 6
7 "etc"
23 2
5 7
7 "pp"
23 2
5 8
7 "St"
23 2
5 9
7 "Ave"
23 2
5 10
7 "vs"
23 2
5 11
7 "vol"
23 2
5 12
7 "Eds"
23 2
5 13
7 "Ed"
23 2
5 14
7 "No"
23 2
5 15
7 "Pl"
23 2
5 16
7 "Rd"
23 2
5 17
7 "Rt"
23 2
5 18
7 "Terr"
23 2
5 19
7 "Blvd"
23 2
5 20
7 "Drs"
23 2
5 21
7 "cf"
23 2
5 22
7 "viz"
23 2
5 23
7 "Rev"
23 2
5 24
7 "ed"
23 2
5 25
7 "viz"
23 2
0 292 0
0 6 "[16420]"
0 2 "Do you want to double-space after sentences?" ""
13
8 3
6 3
5 0
18 0
11 00000757
10 00003539
0 789 "Double spacing after sentences..."
5 1
11 00003539
2 488 1 0 0 1 "." ""
13
8 4
6 4
5 1
18 1
11 00000891
10 00003539
0 6 "[27]"
0 282
13
8 5
6 5
7 ""
18 0
11 00000962
10 00003517
0 40 "{5}"
13
8 5
6 5
5 44
18 0
11 00001043
0 6 "[20519], "
10 00003517
6 5
5 32
18 1
11 00001378
0 6 "[37][37][4135][4135][4135][4135]"
0 24
13
8 6
6 6
7 "e.g."
18 0
6 6
7 "i.e."
18 0
6 6
7 "a.m."
18 0
6 6
7 "p.m."
18 0
1 2
1 2
1 2
11 00001265
0 6 "[39]"
10 00003517
0 292 0
0 7 "There is no space following this period.  Make your corrections and click 'RESUME'."
10 00003517
0 6 "[39]"
0 282
13
8 7
6 7
7 ""
18 0
11 00001460
0 6 "[8]"
10 00003517
0 40 "{7}"
13
8 3
6 3
5 32
18 0
11 00001534
5 1
8 3
10 00001544
5 0
8 3
6 3
5 0
18 0
11 00001657
0 40 "{7}"
13
8 8
6 8
5 91
18 5
11 00001647
5 1
8 9
10 00001657
5 0
8 9
6 3
5 1
18 0
11 00001858
0 6 "[39]"
0 282
13
8 10
6 10
7 ""
18 0
11 00001773
0 6 "[8][8]"
10 00003517
0 40 "{10}"
13
8 8
6 8
5 91
18 5
11 00001848
5 1
8 9
10 00001858
5 0
8 9
0 6 "[16421]"
0 282
13
8 11
0 40 "{11}"
13
8 12
6 12
5 41
18 0
6 12
5 93
18 0
6 12
5 34
18 0
1 2
1 2
11 00002043
5 2
8 13
0 6 "[39][39]"
10 00002491
10 00002058
0 6 "[20517]"
0 24
13
8 14
0 6 "[27][16423][39]"
0 14 "{14}"
13
8 13
6 13
5 1
18 0
11 00002163
10 00002338
5 1
8 15
5 25
6 15
18 2
12 00002253
10 00002338
5 1
6 15
3 0
8 15
10 00002174
6 14
6 15
22 2
18 0
11 00002314
5 1
8 13
10 00002338
5 2
8 13
10 00002218
6 13
5 1
18 0
6 3
5 0
18 0
1 1
11 00002415
10 00003517
10 00002491
6 13
5 1
18 0
6 3
5 1
18 0
1 1
11 00002491
0 6 "[46]"
10 00003517
6 13
5 2
18 0
6 3
5 1
18 0
6 9
5 1
18 0
1 1
1 1
11 00002589
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 1
18 0
6 9
5 0
18 0
1 1
1 1
11 00003101
0 292 0
0 2 "There are two spaces after this period, but the next word is not capitalized.  Do you want to capitalize the next word?"
13
8 16
6 16
5 1
18 0
11 00002896
0 18 "{10}"
13
8 17
0 6 "[16423][46]{17}"
10 00003517
0 2 "There are two spaces after this period, but the next word is not capitalized.  Do you want to delete one of the spaces?"
13
8 16
6 16
5 1
18 0
11 00003075
0 6 "[46]"
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 0
18 0
6 9
5 1
18 0
1 1
1 1
11 00003208
0 6 " "
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 0
18 0
6 9
5 0
18 0
1 1
1 1
11 00003517
0 292 0
0 2 "There is only one space after this period, but the next word is not capitalized.  Do you want to capitalize the next word?"
13
8 16
6 16
5 1
18 0
11 00003504
0 18 "{7}"
13
8 17
0 6 "[16423][46]{17}"
10 00003517
0 292 0
10 00000800
0 789 "Converting em dashes..."
2 488 1 "" "" 1024 "--" "</W>"
0 6 "[16420]"
0 789 "Converting single quotes..."
5 1
11 00004091
2 488 1 "" "" "" "'" ""
13
8 4
6 4
5 1
18 1
11 00003750
10 00004091
0 6 "[27]"
0 282
13
7 "'"
18 0
11 00003840
0 6 "[37][4135][4135]</T>"
10 00004078
7 ""
0 37
13
18 0
1 3
11 00003896
0 6 "[37][37]"
0 282
13
7 " "
18 0
0 282
13
7 ""
18 0
1 2
11 00004048
0 282
13
7 ""
18 1
11 00004009
0 6 "[39]"
0 6 "[4135]"
0 6 "</Q>"
10 00004078
0 6 "[39][4135]"
0 6 "</R>"
10 00003656
0 6 "[16420]"
0 789 "Converting double quotes..."
10 00004362
5 1
11 00004362
2 488 1 "" "" "" """" ""
13
8 4
6 4
5 1
18 1
11 00004251
10 00004362
0 6 "[27]"
0 282
13
7 " "
18 0
11 00004331
0 6 "[4133]</T>"
10 00004349
0 6 "[4133]</S>"
10 00004156
5 1
11 00004520
2 488 1 "" "" "" """" ""
13
8 4
6 4
5 1
18 1
11 00004457
10 00004520
0 6 "</S>"
2 488 1 "" "" "" """" ""
0 6 "</T>"
10 00004362
0 789 ""
0 3 "All Quotes, dashes and apostrophes within file have been converted to typographical equivalent."
0 789 ""
0 292 0
6 0
15
9
00008895